#! /usr/bin/perl
use strict;
use warnings;
use Encode;

print "Please input some words in deferent line, and press CTRL + D to finish input\n";
chomp(my @lines = <STDIN>);
my $width = shift @lines;
print "\n12345678901234567890------------\n";
my $formater = "%${width}s\n";
foreach(@lines) {
		printf $formater, $_;
}

print "\n$lines[1]\n;"
